fplot(@(x)(0.6/(0.5*0.6+0.5*0.2)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))/((1+0.6-x)*(0.6/(0.5*0.6+0.5*0.2))+(1-0.6)*((1-0.6)/(1-(0.5*0.6+0.5*0.2)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))),[0 1],'-');
grid on
xlabel('The Expected Competence of the Government E(\gamma)')
ylabel('The Probability of Learning from Other Sources \rho')
hold on
fplot(@(x)(0.6/(0.5*0.6+0.5*0.2)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))/((1+0.2-x)*(0.6/(0.5*0.6+0.5*0.2))+(1-0.2)*((1-0.6)/(1-(0.5*0.6+0.5*0.2)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))),[0 1],'-')
plot([0.5,0.5],[0,1],'--')
hold off
ylim([0 1])
set(gca,'XTick',(0:0.1:1))
h=legend('$\rho_h$','$\rho_l$')
set(h, 'Interpreter','LaTex','FontSize',5)
print('baseline','-dpng','-r800')